Option Explicit
Sub E_Sample027()
   'ո E_Data01u@g
    'o̷|ܧAҥHХƻsAӰ
    Dim myRng As Range
    Dim myAr  As Variant
    Dim i     As Long
    With Worksheets
        .Item("E_Data01").Copy After:=.Item(.Count)
        Set myRng = .Item(.Count).Range("A1").CurrentRegion	'Ƨǽd
    End With
    'quǳ̧C}lA̧ǱNyBƾǡBzơB|]
    myAr = Array(4, 5, 6, 7)					'wPu
    With myRng
        For i = 0 To UBound(myAr)
            .Sort Key1:=.Cells(2, myAr(i)), Order1:=xlAscending, _
            Header:=xlGuess
        Next
    End With
    Set myRng = Nothing						'
End Sub
